Top 10k strings from Spectrum Special 3 (1983)(Shiva Publishing)(16k)(Side B).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Compilations - Utilities & Educational & Various / Sinclair ZX Spectrum - Compilations - Various - [TZX] (TOSEC-v2006-06-06) /

Back to the directory listing

   6 HIT ANY KEY TO CONTINUE
   5 ;"OPTIONS"
   5 ;"1.  RUN program again           2.  Display instructions        3.  LOAD next program           4.  STOP"
   4 "              
   3 q$="Select option number ":
   3 Please input a 
   2 track=1000
   2 shade=4000
   2 Select option number V
   2 HIT ANY KEY TO START
   2 ,(cf+ct)/2
   2 "             
   1 y+" is a "+c$
   1 write program to draw picture here
   1 there are nine and sixty ways of constructing tribal lays       Have you managed to decode this message yet                     heat not a furnace for your foe so hot that it do singe yourselfoh the roast beef of old england and englands roast beef        the bowsprit got mixed with the rudder sometimes                it is an ancient mariner and he stoppeth one of three           you are trying to decipher this on a sinclair spectrum          i must get out of these wet clothes and into a dry martini      watch the magazines for the latest books from shiva publishing  while shepherds washed their socks by night                     
   1 there are nine and sixty ways of constructing tribal lays       C0
   1 testmove=2000
   1 record of choice
   1 q$="Year number?  ":
   1 q$="Select option number":
   1 q$="Move which pair (top no.)?":
   1 q$="Month number  ":
   1 q$="Day number?   ":
   1 p$=p$+".":
   1 n(i)=n(i)+1
   1 mexrxarxjnjxajlqntmpsapqyvwyjqmrgwmnjumrniaddapq
   1 makemove=3000
   1 k$="202020202000"
   1 getmove=1000
   1 frequency analysis
   1 c$=c$+b$(c-96
   1 b$=b$+a$(m):
   1 b$="SUNDAY   MONDAY   TUESDAY  WEDNESDAYTHURSDAY FRIDAY   SATURDAY "
   1 b$(n)=" ":
   1 abcdefgiklqrstuwxzG
   1 a$="abcdefghijklmnopqrstuvwxyz"
   1 a$="033614625035"
   1 SUNDAY   MONDAY   TUESDAY  WEDNESDAYTHURSDAY FRIDAY   SATURDAY V
   1 SORRY... NO SUCH DATE. TRY AGAIN
   1 HIT ANY KEY TO PLAY
   1 Frequency Analysis
   1 FRIDAY   Q
   1 Created with Ramsoft MakeTZX
   1 ;"You took ";mx;" moves...";
   1 ;"YOU'VE DONE IT!!"
   1 ;"This is a utility program which shades areas inside curves.  To use it in your own programs     delete all but lines 50-4140 andSAVE these on tape."
   1 ;"See if you can improve your     record."
   1 ;"REMINDER: usual order ETNROAISD";
   1 ;"Illegal"
   1 ;"ILLEGAL MOVE!!":
   1 ;"ENTER 0 TO EXIT PROGRAM"
   1 ;"DONE IT!";
   1 ;"       "
   1 ;"              "
   1 ;"                                ";:
   1 9         
   1 8         1
   1 7         F
   1 6         h
   1 222220000000X
   1 17.3.2000 is a FRIDAY   S
   1 10        8
   1 06666688174145506666688875577775036662817774503666288754718755066666872844117563775066666877875788755506666687777750666668887557777506666688875577775
   1 033614625035B?
   1 *n(i)/tot)):
   1 );". Do you want to leave it?";y$
   1 );" for code letter ";
   1 (xl+c,y)=0
   1 ((rf+rt)/2
   1 '''"Select shape:"'''"      1. Traditional                  2. Latin Cross                  3. Greek Cross                  4. Tilted Square"
   1 '''"   ABCDEFGHIJKLMNOPQRSTUVWXYZ   "'"   ZYXWVUTSRQPONMLKJIHGFEDCBA   "''"????????????????????????????????????????????????????????????????"
   1 ''"The message was:"''m$
   1 '"It will reappear after an       analysis of the letter          frequencies occurring in it."
   1 '"Actual code:"'"abcdefghijklmnopqrstuvwxyz"'b$
   1 '"  Hang on, this looks a bit     complicated..."
   1 "the guesses if you wish.          It also gives a frequency     analysis of the letters in the  coded message, as a hint."
   1 "guess at decode?";g$:
   1 "from / to ? ";f$,t$
   1 "code letter?";k$:
   1 "by a series of legal moves.       A move consists of jumping onepeg over another into an empty  space.  The peg jumped over is  removed."
   1 "according to a fixed rearrange- ment of the alphabet. Your job  is to decode it.  The machine   will allow you to guess letters and try them out, and to change"
   1 "You have used ";
   1 "The object of the puzzle is to  rearrange the five cats and     five dogs sitting on the steps."
   1 "The code message will appear    in a moment.  It is..."'
   1 "The Spectrum will present you   with a message coded by a       substitution code.  That is,    the letters will be changed"
   1 "Select option number ";q$
   1 "Select option number ";p$
   1 "SHADING WINDOW top";swt
   1 "SHADING WINDOW right";swr
   1 "SHADING WINDOW left";swl
   1 "SHADING WINDOW bottom";swb
   1 "FURTHER DOCUMENTATION:"''"The program will shade within a chosen'window' on the screen.   Boundary curves should lie      entirely within the window and  have no breaks or crossings."
   1 "Code message:"'c$''"Decoded message:"'p$''
   1 "Code guessed so far:"
   1 "(the yellow pixel dangles).     For additional description see  FURTHER PROGRAMMING FOR THE     ZX SPECTRUM, Shiva."    
   1 "  You must end with the cats    on steps 1-5, and the dogs on   steps 6-10."
   1 "  You have four choices of startposition... see the next        display."
   1 "  You can move any ADJACENT pairinto the blank spaces by        inputting the number beside the TOP animal in the pair."
   1 "  To stop at any time input 
   1 "  To give up and exit the       program, enter 0."
   1 "  This program will calculate   on which day of the week any    given date falls."
   1 "  This is a traditional puzzle  adapted to the Computer Age.      The object is to remove all   but one peg 
   1 "  The commonest letters in      English are ETNROAISD in that   order."
   1 "  Random demonstration curves   will now be shaded.  To speed   up the process, only a central  window will be used."
   1 "  Input the day number (1-31),  month (1-12), and year.           Note that the year should be  written in full: for example    input 1945, not just 45."
   1 "  Further documentation will    follow the demonstration."
   1 "  For example enter d2 and then d4 to jump the peg on d2 over   the one on d3 and into d4."
   1 "  Enter your moves according to the row LETTER and column       NUMBER marked on the screen."
   1 "  Curves should NOT possess     'dangling ends' such as this:        
   1 "  As a test input day 24,       month 9, year 1945.  You        should get MONDAY as the answer."
   1 "  As a demonstration it will    shade part of the title.          Please note that this program is 
   1 "                    
   1 "         
   1  from the board"
   1  and that nothing may    appear to happen for periods of about 30 seconds on occasion."
   1                                
   1